#!/usr/bin/perl 
#             -w  affiche warning
##########################################################################################################################
##########################################################################################################################
my $direct = "/home/massin/data/???????????" ;  

`ls -d $direct > clean.sh` ;
`sed -e '1,\$ s;.*;rm &/???????????.*;' clean.sh > tmp.sh` ; 
`mv tmp.sh clean.sh` ; 
`sh clean.sh` ; 
